Пример за користење на настанот "OnBeforePrint"

Пример за користење на настанот "OnBeforePrint"

За да се демонстрира овој настан, создадете извештај кој претставува список на клиенти. Овој извештај ќе вклучува само тие компании чиј име започнува со буквата "A".

Да создадеме нов проект, поставете го компонентот "TfrxDlDBTable" на формата и поставете ги овие својства:

Корисничко име = 'Subjects'

Отворете го дизајнерот на извештаи и создадете извештај како овој:

Изберете ја податоците и префрлете се на табот "Настани" во инспекторот за објекти:

За да создадете обработувач на настанот "OnBeforePrint" (што е најсоодветно за нас), двокликнете на празното поле десно од името на настанот:

Ова додава празен обработувач во скриптата и дизајнерот се префрла на табот "Код".

Сè што е потребно сега е да се напише следниот код во телото на обработувачот:

ако  Копирај(<Subjects."acSubject">, 1, 1) = 'A' тогаш

  MasterData1.Visible := True

инаку

  MasterData1.Visible := False;

Извршете го извештајот и уверете се дека скриптата работи правилно:

Да објасниме неколку работи. Еден обработувач може да биде назначен за настаните на повеќе од еден објект - параметарот "Sender" покажува кој објект ја иницирал настанот. За да назначите постоечки обработувач на настан, или напишете го директно во инспекторот за објекти, или изберете го од паѓачкиот список:

Линкот до обработувачот може лесно да се избрише - изберете го назначениот обработувач во инспекторот за објекти и притиснете го копчето "Избриши".

Ако обработувачот на настанот е избришан, кодот сè уште останува во извештајот, но не се користи. Само обработувачот на настанот останува, исто така, никаков код не се извршува и не се појавува грешка.